home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / up.s < prev    next >
Text File  |  1992-01-02  |  2KB  |  57 lines
  1. *****************************************************************************
  2. * Modulname:    Up
  3. * Modultype:    Secondary
  4. * Dest.Comp.:    HP48
  5. * Language:    System RPL
  6. * Author:    Detlef Mueller,Nibelungenweg 6,2000 Hamburg 56,W-Germany
  7. * Interface:    UP    ( --> )
  8. * Description:    Derivat for build-in command UPDIR.
  9. * Edition History :
  10. *    0.000    08-11-1991    DM    Alpha version
  11. *    1.000    09-04-1991    DM    release
  12. *      001    09-05-1991    DM    fix TMENU bug, bin. download header
  13. *         002   01-02-1992      BW      fix units menu bug (40.02 -> 42.02)
  14. *****************************************************************************
  15.  
  16.     TITLE    Up
  17.  
  18. *****************************************************************************
  19. *        OBJECT
  20. *****************************************************************************
  21.  
  22. ASSEMBLE
  23. =%18    EQU    #1CDF2        Not 'supported' (Why ??? It is the object
  24. *                followed by %19)
  25.     NIBASC    /HPHP48-E/    Binary download header
  26. RPL
  27.  
  28. ::
  29.     CK0NOLASTWD
  30.     GetMenu% %IP>#            ( *Get menu nr, convert IP to #* )
  31.     TWO
  32.     #=casedrop
  33.     UPDIR                ( *In VAR menu, do simple UPDIR* )
  34.     DUP SIXTY
  35.     #<ITE
  36.     ::    {   %0      %0      %0      %3      %3
  37.         %3      %3      %3      %3      %0
  38.        %10     %10     %10     %10     %10
  39.        %10      %0      %0     %18      %0
  40.         %0      %0      %0      %0     %24
  41.        %24     %24      %0      %0    % 29
  42.         %0    % 31    % 32      %0      %0
  43.       % 35    % 35    % 37    % 35      %0
  44.       % 40.04   %0    % 42    % 42    % 42
  45.       % 42    % 42    % 42    % 42.02 % 42.02
  46.           % 42.02 % 42.02 % 42.02 % 42.02 % 42.03
  47.       % 42.03 % 42.03 % 42.03 % 42.0
  48.     }
  49.     SWAP NTHELCOMP            ( *determine menu parent* )
  50.     NOTcase                ( *Not in list, must be TMENU* )
  51.         %0                ( *so do LASTMENU* )
  52.     ;
  53.     ::  DROP %24            ( *From a library submenu do LIBRARY* )
  54.     ;
  55.     InitMenu%
  56. ;
  57.